﻿Imports System.Data.SqlClient
Imports BusinessEntites
Imports DataAccess
Public Class NhanVienService
    Dim DA As New NhanVienDA

    Public Sub New()

    End Sub

    Public Function GetObjectByID(ByVal MA_NV As Integer) As NhanVienObj
        Dim myObj As New NhanVienObj
        myObj = DA.GetObjectByID(MA_NV)
        Return myObj
    End Function

    Public Function GetListObject() As ListOfNhanVienObj
        Dim myList As ListOfNhanVienObj
        myList = DA.GetListObject
        Return myList
    End Function

    Public Function Insert(ByVal Obj As NhanVienObj) As Boolean
        If DA.Insert(Obj) Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function Update(ByVal Obj As NhanVienObj) As Boolean
        If DA.Update(Obj) Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function DeleteBy() As Boolean
    End Function

End Class
